home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 6 / Amiga Format AFCD06 (Nov 1996, Issue 90).iso / serious / commercial / advex / dvescripts / dissolvvibrata.xdve < prev    next >
Text File  |  1995-07-03  |  2KB  |  79 lines
  1. /* Dissolvenza incrociata CON DISPLACE_PIXEL in 50 FRAMES */
  2.  
  3. ADDRESS "ADPro"
  4. OPTIONS RESULTS
  5.  
  6. TRUE  = 1
  7. FALSE = 0
  8. TmpIma = 'T:immagine'       /*SE NON HAI 10 MB DI FASTRAM CAMBIA IL PATH*/
  9. TmpIma2 = 'T:immagine2'
  10. Temporaneo = 'T:Temporaneo'
  11. RAD = 2
  12. DP = 2
  13. DPb = 1
  14. DP2 = 101
  15. DISSOLVE = 100
  16. DISSOLVE2 = 2
  17. NUMEROFRAME = 0
  18.  
  19. GETFILES '"Seleziona la PRIMA immagine"'
  20.  IF RC ~= 0 THEN EXIT
  21.   PRIMA = ADPRO_RESULT
  22.    IF PRIMA = "" THEN EXIT
  23.     LOADER "UNIVERSAL" PRIMA
  24. SAVER "IFF" TmpIma "RAW"
  25.     XSIZE
  26.      BASE = ADPRO_RESULT
  27.     YSIZE
  28.      ALTZ = ADPRO_RESULT
  29.  
  30. GETFILES '"Seleziona la SECONDA immagine"'
  31.  IF RC ~= 0 THEN EXIT
  32.   SECONDA = ADPRO_RESULT
  33.    IF SECONDA = "" THEN EXIT
  34.      LOADER "UNIVERSAL" SECONDA
  35.     XSIZE
  36.      BASE2 = ADPRO_RESULT
  37.     YSIZE
  38.      ALTZ2 = ADPRO_RESULT
  39. IF (BASE2 > BASE) | (ALTZ2 > ALTZ) THEN DO
  40.                           ABS_SCALE (BASE) (ALTZ)
  41.                           END
  42. IF (BASE2 < BASE) | (ALTZ2 < ALTZ) THEN DO
  43.                           ABS_SCALE (BASE) (ALTZ)
  44.                           END
  45.  SAVER "IFF" TmpIma2 "RAW"
  46.  
  47. GETfile '"Path e nomebase 50 frames elaborati"'
  48. IF RC ~= 0 THEN EXIT
  49. OUTFILE = ADPRO_RESULT
  50. if OUTFILE = "" then exit
  51.   
  52.    DO i=1 to 50
  53. LOADER "IFF" TmpIma
  54. OPERATOR "Displace_Pixel" (RAD) (DP) 2589
  55. OPERATOR "Displace_Pixel" 1 (DPb) 4587
  56.       SAVER "IFF" Temporaneo "RAW"
  57.     LOADER "IFF" TmpIma2
  58.     DP2 = (DP2 - 2)
  59. OPERATOR "Displace_Pixel" (DP2) (DP2) 1258
  60.   LOADER "IFF" Temporaneo COMPOFFSET 0 0 (DISSOLVE)
  61.    OPERATOR "BLUR" 0 1
  62.     RAD = (RAD + 1)
  63.     DP = (DP + 1)
  64.     DPb = (DPb + 1)
  65.   DR = (DR - 5)
  66.   DR2 = (DR2 + 5)
  67.     DISSOLVE = (DISSOLVE - DISSOLVE2)
  68.   NUMEROFRAME = (NUMEROFRAME + 1)
  69. NUMERO = RIGHT(NUMEROFRAME,3,'0')
  70.  SFORMAT "IFF"
  71.   SAVE (OUTFILE)||'.'||(NUMERO) "RAW"
  72.    SAY "Salvo il frame Num." NUMERO
  73.     END    
  74.  
  75. ADDRESS COMMAND "Delete >NIL:" TmpIma
  76. ADDRESS COMMAND "Delete >NIL:" TmpIma2
  77. ADDRESS COMMAND "Delete >NIL:" Temporaneo
  78.  EXIT
  79.